home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / demo / hyp10dem.sit / HyperTint Demo / background_4603.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-03-29  |  7.6 KB  |  208 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>4603</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3268.css" />
  10.     <part>
  11.         <id>8</id>
  12.         <type>field</type>
  13.         <visible> <true /> </visible>
  14.         <dontWrap> <false /> </dontWrap>
  15.         <dontSearch> <false /> </dontSearch>
  16.         <sharedText> <true /> </sharedText>
  17.         <fixedLineHeight> <false /> </fixedLineHeight>
  18.         <autoTab> <false /> </autoTab>
  19.         <lockText> <false /> </lockText>
  20.         <rect>
  21.             <left>37</left>
  22.             <top>52</top>
  23.             <right>411</right>
  24.             <bottom>87</bottom>
  25.         </rect>
  26.         <style>transparent</style>
  27.         <autoSelect> <false /> </autoSelect>
  28.         <showLines> <false /> </showLines>
  29.         <wideMargins> <false /> </wideMargins>
  30.         <multipleLines> <false /> </multipleLines>
  31.         <reservedFamily> 0 </reservedFamily>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>0</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Geneva</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <textHeight>16</textHeight>
  39.         <name>KeepBrowsing</name>
  40.         <script></script>
  41.     </part>
  42.     <part>
  43.         <id>10</id>
  44.         <type>field</type>
  45.         <visible> <true /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <false /> </dontSearch>
  48.         <sharedText> <false /> </sharedText>
  49.         <fixedLineHeight> <true /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <true /> </lockText>
  52.         <rect>
  53.             <left>5</left>
  54.             <top>90</top>
  55.             <right>442</right>
  56.             <bottom>275</bottom>
  57.         </rect>
  58.         <style>transparent</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <false /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Geneva</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>bold</textStyle>
  70.         <textHeight>20</textHeight>
  71.         <name>TitleList</name>
  72.         <script>on mouseDown
  73. -- answer "*" & the clickText & "*" -- DEBUG DEBUG DEBUG
  74. put the clickText into cardName
  75.  
  76. if cardName is not empty then
  77. -- select the clickChunk
  78. HTVisual "iris open"
  79. go to card char 1 to 25 of cardName
  80. end if
  81. end mouseDown</script>
  82.     </part>
  83.     <part>
  84.         <id>3</id>
  85.         <type>button</type>
  86.         <visible> <true /> </visible>
  87.         <reserved5> 0 </reserved5>
  88.         <reserved4> 0 </reserved4>
  89.         <reserved3> 0 </reserved3>
  90.         <reserved2> 0 </reserved2>
  91.         <reserved1> 0 </reserved1>
  92.         <enabled> <true /> </enabled>
  93.         <rect>
  94.             <left>414</left>
  95.             <top>11</top>
  96.             <right>446</right>
  97.             <bottom>43</bottom>
  98.         </rect>
  99.         <style>transparent</style>
  100.         <showName> <false /> </showName>
  101.         <highlight> <false /> </highlight>
  102.         <autoHighlight> <false /> </autoHighlight>
  103.         <sharedHighlight> <true /> </sharedHighlight>
  104.         <family>0</family>
  105.         <titleWidth>0</titleWidth>
  106.         <icon>26425</icon>
  107.         <textAlign>center</textAlign>
  108.         <font>Chicago</font>
  109.         <textSize>12</textSize>
  110.         <textStyle>plain</textStyle>
  111.         <name>GoRight</name>
  112.         <script>on mouseUp
  113. if htuisInstalled() then
  114. HTvisual "scroll left"
  115. else
  116. visual effect scroll left
  117. end if
  118. go next card
  119. end mouseUp</script>
  120.     </part>
  121.     <part>
  122.         <id>2</id>
  123.         <type>button</type>
  124.         <visible> <true /> </visible>
  125.         <reserved5> 0 </reserved5>
  126.         <reserved4> 0 </reserved4>
  127.         <reserved3> 0 </reserved3>
  128.         <reserved2> 0 </reserved2>
  129.         <reserved1> 0 </reserved1>
  130.         <enabled> <true /> </enabled>
  131.         <rect>
  132.             <left>0</left>
  133.             <top>11</top>
  134.             <right>33</right>
  135.             <bottom>46</bottom>
  136.         </rect>
  137.         <style>transparent</style>
  138.         <showName> <false /> </showName>
  139.         <highlight> <false /> </highlight>
  140.         <autoHighlight> <false /> </autoHighlight>
  141.         <sharedHighlight> <true /> </sharedHighlight>
  142.         <family>0</family>
  143.         <titleWidth>0</titleWidth>
  144.         <icon>902</icon>
  145.         <textAlign>center</textAlign>
  146.         <font>Chicago</font>
  147.         <textSize>12</textSize>
  148.         <textStyle>plain</textStyle>
  149.         <name>GoLeft</name>
  150.         <script>on mouseUp
  151. if htuisInstalled() then
  152. HTvisual "scroll right"
  153. else
  154. visual effect scroll right
  155. end if
  156. go previous card
  157. end mouseUp</script>
  158.     </part>
  159.     <part>
  160.         <id>11</id>
  161.         <type>field</type>
  162.         <visible> <true /> </visible>
  163.         <dontWrap> <false /> </dontWrap>
  164.         <dontSearch> <false /> </dontSearch>
  165.         <sharedText> <false /> </sharedText>
  166.         <fixedLineHeight> <false /> </fixedLineHeight>
  167.         <autoTab> <false /> </autoTab>
  168.         <lockText> <false /> </lockText>
  169.         <rect>
  170.             <left>37</left>
  171.             <top>19</top>
  172.             <right>411</right>
  173.             <bottom>42</bottom>
  174.         </rect>
  175.         <style>transparent</style>
  176.         <autoSelect> <false /> </autoSelect>
  177.         <showLines> <false /> </showLines>
  178.         <wideMargins> <false /> </wideMargins>
  179.         <multipleLines> <false /> </multipleLines>
  180.         <reservedFamily> 0 </reservedFamily>
  181.         <titleWidth>0</titleWidth>
  182.         <icon>0</icon>
  183.         <textAlign>center</textAlign>
  184.         <font>Geneva</font>
  185.         <textSize>12</textSize>
  186.         <textStyle>bold</textStyle>
  187.         <textHeight>16</textHeight>
  188.         <name>Title</name>
  189.         <script></script>
  190.     </part>
  191.     <part>
  192.         <id>12</id>
  193.         <type>field</type>
  194.         <visible> <false /> </visible>
  195.         <dontWrap> <false /> </dontWrap>
  196.         <dontSearch> <true /> </dontSearch>
  197.         <sharedText> <false /> </sharedText>
  198.         <fixedLineHeight> <false /> </fixedLineHeight>
  199.         <autoTab> <false /> </autoTab>
  200.         <lockText> <false /> </lockText>
  201.         <rect>
  202.             <left>124</left>
  203.             <top>89</top>
  204.             <right>324</right>
  205.             <bottom>174</bottom>
  206.         </rect>
  207.         <style>rectangle</style>
  208.         <autoSelect> <false /> </autoSelect>
  209.         <showLines> <false /> </showLines>
  210.         <wideMargins> <false /> </wideMargins>
  211.         <multipleLines> <false /> </multipleLines>
  212.         <reservedFamily> 0 </reservedFamily>
  213.         <titleWidth>0</titleWidth>
  214.         <icon>0</icon>
  215.         <textAlign>left</textAlign>
  216.         <font>Geneva</font>
  217.         <textSize>12</textSize>
  218.         <textStyle>plain</textStyle>
  219.         <textHeight>16</textHeight>
  220.         <name>Section</name>
  221.         <script></script>
  222.     </part>
  223.     <content>
  224.         <layer>background</layer>
  225.         <id>8</id>
  226.         <text>Click on a topic to jump to that card
  227. (or keep browsing via the arrow buttons)</text>
  228.     </content>
  229.     <name>Section Titles</name>
  230.     <script>on openBackground
  231. colorSetup  -- This background uses the default handler in the stack script
  232. hide groups
  233. HTLock off
  234. end openBackground
  235.  
  236. on closeBackground
  237. HTLock on
  238. show groups
  239. end closeBackground
  240.  
  241. on openCard
  242. addRecent field "Title"
  243. selectTopicMenu
  244. end openCard
  245.  
  246. -- on openBackground
  247. -- -- set the rect of this card to 0,0,448,280
  248. -- HTChangePict "none"
  249. -- HTLock off
  250. -- end openBackground
  251.  
  252. on cr
  253. -- Assign the color regions for this background.  This
  254. -- background uses three color regions.
  255. --
  256. -- The first step is to clear out the three regions used.
  257. -- Otherwise, the old object locations will be kept in the
  258. -- region along with the new locations.  Actually, it's
  259. -- a good idea to simply call the utility handler
  260. -- ClearAllRegions (which is in the stack script) which will
  261. -- loop and call HTRClear for each of the 10 regions.  This
  262. -- is useful, particularly during early stages ofstack development,
  263. -- because it makes sure that any regions added to other
  264. -- backgrounds all cleared out as well.
  265. HTRClear 1
  266. HTRClear 2
  267. HTRClear 3
  268. -- Now, add the new locations to the empty regions
  269. HTRAddRect 1,the rect of field "TitleList",the rect of field "Title"
  270. HTRAddRect 2,the rect of field "KeepBrowsing"
  271. HTRAddRect 3, the rect of bg button "GoLeft",┬¼
  272. the rect of bg button "GoRight"
  273. -- The above commands have changed the current color layout
  274. -- but to make these changes permanent, they are saved
  275. -- in the color scheme for this background, so that the
  276. -- time this background is "opened", the new layout will
  277. -- be found.
  278. HTWriteScheme the short name of this background
  279. if the result is not empty then
  280. answer "Error saving new color scheme:  " & the result
  281. end if
  282. end cr
  283.  
  284. </script>
  285. </background>
  286.